home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / dev / fsystem-1.2 / fiotest.mod < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.9 KB  |  84 lines

  1. MODULE fioTest;
  2.  
  3. IMPORT
  4.   (* $IF Debug *) Debug, (* $END *)
  5.   NoGuru, io, fio, FSystem;
  6.  
  7. VAR
  8.   file : fio.File;
  9.   i : LONGINT;
  10.   str : ARRAY 256 OF CHAR;
  11.  
  12. BEGIN
  13.   LOOP
  14.     io.WriteString("Opening file 'fiotest.dat': ");
  15.     IF ~fio.open(file, "fiotest.dat", fio.newFile) THEN
  16.       io.WriteString("failure ");
  17.       io.WriteInt(file.status, 1); io.WriteLn;
  18.       EXIT;
  19.     END;
  20.     io.WriteString("ok\n");
  21.  
  22.     io.WriteString("Writing integer 42: ");
  23.     IF ~fio.WriteInt(file, 42, 1) THEN
  24.       io.WriteInt(file.status, 1); io.WriteLn;
  25.       fio.close(file);
  26.       EXIT;
  27.     END;
  28.     io.WriteString("ok\n");
  29.  
  30.     io.WriteString("Writing string 'Hallo Nase!': ");
  31.     IF ~fio.WriteString(file, "Hallo Nase!\n") THEN
  32.       io.WriteInt(file.status, 1); io.WriteLn;
  33.       fio.close(file);
  34.       EXIT;
  35.     END;
  36.     io.WriteString("ok\n");
  37.  
  38.     io.WriteString("Seeking back: ");
  39.     IF ~FSystem.Move(file, 0) THEN
  40.       io.WriteInt(file.status, 1); io.WriteLn;
  41.       fio.close(file);
  42.       EXIT;
  43.     END;
  44.     io.WriteString("ok\n");
  45.  
  46.     io.WriteString("Reading integer: ");
  47.     IF ~fio.ReadLong(file, i) THEN
  48.       io.WriteString("failure ");
  49.       io.WriteInt(file.status, 1); io.WriteLn;
  50.       fio.close(file);
  51.       EXIT;
  52.     END;
  53.     io.WriteString("ok ");
  54.     io.WriteInt(i,1);
  55.     io.WriteLn;
  56.  
  57.     io.WriteString("Reading string: ");
  58.     IF ~fio.ReadString(file, str) THEN
  59.       io.WriteString("failure ");
  60.       io.WriteInt(file.status, 1); io.WriteLn;
  61.       fio.close(file);
  62.       EXIT;
  63.     END;
  64.     io.WriteString("ok '");
  65.     io.WriteString(str);
  66.     io.WriteString("'\n");
  67.  
  68.     io.WriteString("Reading integer (should fail): ");
  69.     IF ~fio.ReadLong(file, i) THEN
  70.       io.WriteString("failure ");
  71.       io.WriteInt(file.status, 1); io.WriteLn;
  72.     ELSE
  73.       io.WriteString("ok ");
  74.       io.WriteInt(i,1);
  75.       io.WriteLn;
  76.     END;
  77.  
  78.     io.WriteString("Closing file.\n");
  79.     fio.close(file);
  80.     EXIT;
  81.   END;
  82.   io.WriteString("--- Done ---\n");
  83. END fioTest.
  84.